home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / dprin101.zip / SAMPLE.PAS < prev   
Pascal/Delphi Source File  |  1993-02-07  |  1KB  |  54 lines
  1.  
  2. {*************************************************************
  3.  
  4.    DPrint «
  5.  
  6.    Copyright ⌐ 1992 by :
  7.  
  8.         PHADE SOFTWARE
  9.         Inh. Frank Gadegast
  10.         Leibnizstr. 30
  11.         1000 Berlin 12 GERMANY
  12.  
  13.         Tel. : (030) 312 81 03
  14.  
  15.     Version 1.01 / 17.5.92
  16.  
  17. **************************************************************}
  18.  
  19. program sample;
  20.  
  21. {--------------------------------------------------------------------------------}
  22. {--------------------------------------------------------------------------------}
  23.  
  24. uses    WinProcs, WinTypes, WObjects,
  25.         DPrint;
  26.  
  27. const    SampleName = 'Sample for Unit DPrint';
  28.  
  29. type
  30.         TSampleApp = object (TApplication)
  31.             procedure InitMainWindow; virtual;
  32.         end;
  33.  
  34. {--------------------------------------------------------------------------------}
  35. {--------------------------------------------------------------------------------}
  36.  
  37. procedure TSampleApp.InitMainWindow;
  38. begin
  39.     if PrinterSetup (0) = true then
  40.         MessageBox (0, 'Print was pressed.', SampleName, mb_OK or mb_IconInformation)
  41.     else
  42.         MessageBox (0, 'Cancel was pressed.', SampleName, mb_OK or mb_IconInformation);
  43. end;
  44.  
  45. {--------------------------------------------------------------------------------}
  46. {--------------------------------------------------------------------------------}
  47.  
  48. var SampleApp : TSampleApp;
  49.  
  50. begin
  51.       SampleApp.Init (SampleName);
  52.     SampleApp.Done;
  53. end.
  54.